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SECTION  I 


A BRIEF  SYSTEMS  OVERVIEW 


This  document  contains  installation  and  startup  instructions  for 
the  system  User  Requirements  Language  and  User  Requirements  Analyzer 
(URL/URA) . URL/URA  is  an  interactive  computer  system  acquired  by 
Air  Force  ESD/MCI  from  the  University  of  Michigan  under  the  task  of 
Computer  Aided  Requirements  Analysis  (CARA) . 

URL/URA  presently  operates  on  the  IBM  370/158  under  the  0S/MVT/TS0 
environment,  and  has  been  shown  to  be  operable  under  both  MVT  and  VS, 
The  source  code  is  written  mainly  in  FORTRAN,  compilable  under  either 
the  G or  the  H compiler.  A small  number  of  routines,  however,  are 
written  in  Assembler  (F  or  G)  . 

Distribution  of  this  system  in  object  deck  form  consists  of  over 
sixty  data  sets,  and  in  source  form  about  another  sixty  data  sets. 
Because  of  the  complexity  of  the  interrelationships  among  these 
modules,  it  is  felt  that  an  exposition  of  the  overall  view  of  the 
system  organization  is  in  order  before  detailed  installation  instruc- 
tions are  given.  A brief  description  of  the  system  organization  will 
therefore  be  given  in  this  section.  It  is  intended  as  background 
information  to  improve  understanding  of  the  installation  procedure 
but  by  no  means  meant  to  supplant  any  system  documentation  of  URL/ 


As  is  indicated  by  the  name,  URL/URA  consists  of  two  main  parts, 
namely,  the  language  and  the  analyzer.  URL  is  a language  for  formally 
stating  user  requirements.  A target  system  can  be  described  by  state- 
ments of  the  URL  language  which  can  be  read  and  constructed  into  a 
data  base  via  a set  of  interactive  commands.  This  data  base  can  in 
turn  be  checked,  analyzed  and  summarized  by  another  set  of  commands. 

The  analyzer  (URA)  is  the  set  of  modules  or  computer  programs  that 
make  up  these  commands.  Hence,  installing  the  URL/URA  system  is  in 
reality  installing  the  URA  programs  as  well  as  supportive  software 
to  facilitate  their  execution. 

URA  COMMANDS  AND  CORRESPONDING  PROGRAMS 

Listed  below  are  the  names  of  all  the  program  modules  that  make 
up  the  URA  commands  and  the  specific  commands  to  which  they  correspond. 


URA. 


Program  Module 


URA  Command 


CM 

CNC 


CM  (CONSISTS-MATRIX) 

CNC  (CON SI STS-COMP ARISON) 
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Program  Module 


URA  Command 


CONT 

CT 

DBS 

DCOM 

DEL 

DICT 

DP 

DPSL 

El 

FPS 

FREQ 

IDX 

KPER 

KPRT 

NGA 

NGP 

NLA 

NLP 

PAV 

PCOM 

PIC 

PRIO 

RCOM 

REN 

STR 

SUM 

SYNU 

XREF 


CONT  (CONTENTS) 

CT  (CHANGE-TYPE) 

DBS  (DATA-BASE-STATISTICS) 

DCOM  (DELETE-COMMENT-ENTRY) 

DEL  (DELETE) 

DICT  (DICTIONARY) 

DP  (DATA-PROCESS) 

DPSL  (DELETE-PSL) 

El  (ENTITY-IDENTIFIER) 

FPS  (FORMATTED-PROBLEM-STATEMENT) 
FREQ  (FREQUENCY) 

INDEX  option  in  PIC,  STR  & FPS 
KWIC  (KWIC-INDEX) 

NG  (NAME-GEN) 

NL  (NAME-LIST) 

PAV  (PRINT- ATTRIBUTE-VALUES) 

PCOM  (PUNCH-COMMENT-ENTRY) 

PIC  (PICTURE) 

PRIO  (PROCESS-INPUT-OUTPUT) 

RCOM  (REPLACE- COMMENT-ENTRY) 

REN  (RENAME) 

STR  (STRUCTURE) 

SUM  (SUMMARY) 

IP  ( INPUT -PSL) 

cross  reference  option  for  IP 


These  programs  are  all  written  in  FORTRAN.  They  are,  however, 
not  complete  by  themselves.  They  are  supplemented  by  two  other  types 
of  data  sets  - block  data  and  service  routine  libraries. 


BLOCK  DATA 

There  are  altogether  four  block  data  programs,  namely, 

PSL 

PSLBLK 
LIBBLK 
and  DBBLK. 

These  are  all  FORTRAN  routines  containing  data  statements  which 
give  initial  values  to  variables  in  COMMON  blocks.  Not  all  four  of 


8 


the  block  data  programs  are  required  by  the  URA  command  program  modules 
listed  above.  SYNU  and  DPSL  require  PSL  and  PSLBLK.  All  the  others 
require  LIBBLK  and  DBBLK. 

LIBRARIES 

Libraries  contain  common  subroutines  used  by  more  than  one  command 
program;  they  also  contain  service  subroutines  that  are  used  over  and 
over  again.  These  libraries  are  compiled  separately  and  link-edited 
together  with  the  compiled  program  modules  to  form  complete  load 
modules. 

There  are  three  levels  of  libraries  in  support  of  the  URA  soft- 
ware: 


1.  SLIB  - routines  that  are  either  operating  system  or 

machine  dependent.  These  are  mainly  written 
in  assembly  language. 

2.  DBLIB  - data  base  routines.  These  are  routines  that 

make  up  the  data  base  management  section  of  the 
software.  Host  of  the  routines  are  written  in 
FORTRAN.  The  random  access  I/O  routines,  how- 
ever are  written  in  Assembler.  Some  routines 
in  DBLIB  reference  routines  in  SLIB. 

3.  FLIB  - These  are  general  utility  FORTRAN  subroutines 

used  throughout  the  analyzer.  Examples  are 
report  routines  and  matrix-handling  routines. 

Since  these  routines  are  written  in  FORTRAN, 
they  should  be  independent  of  the  machine  or 
operating  system  environment,  except  for  the 
variations  of  the  FORTRAN  language  as  implemented 
in  the  different  machines.  The  routines  in  FLIB 
reference  routines  in  DBLIB  and  SLIB. 

TOP-LEVEL  OPERATING  ENVIRONMENT 

So  far  we  have  identified  the  program  modules  which  compose  the 
analyzer  commands  and  their  supportive  software.  The  question  remains: 
how  are  these  commands  initiated?  This  is  achieved  by  a top-level 
command  language  handler  which  reads  in  parameters  from  users,  accepts 
URA  commands  and  initiates  the  correct  program  module (s)  to  handle 
each  specific  command.  This  top-level  command  language  handler  con- 
sists of  two  parts  - CLI,  the  main  portion,  and  CLIEX,  which  contains 
most  of  the  code  likely  to  be  changed. 


9 


The  entire  systems  overview  is  summarized  in  Figure  1. 

This  particular  version  of  URA  being  distributed  operates  under 
the  IBM  370  Time  Sharing  Option  (TSO) . The  mechanism  whereby  the 
program  modules  are  activated  is  TSO  command  procedures.  First,  CLI 
is  initiated  via  a command  procedure  CLI.CLIST.  CLI  accepts  URA 
commands  and  their  respective  parameters,  constructs  another  command 
procedure  GO.CLIST  which  is  executed  via  a statement  in  CLI.CLIST 
(see  listing  of  CLI.CLIST  in  Figure  2).  CLI.CLIST  is  automatically 
reactivated  by  the  last  statement  in  GO.CLIST,  and  another  URA  command 
can  be  accepted  by  CLI.  This  mode  of  operation  is  very  dependent  on 
some  subtle  characteristics  of  TSO  command  procedures.  Its  pitfalls 
and  alternatives  will  be  addressed  later. 

AUXILIARY  URA  DATA  SETS 

Besides  the  URA  command  software  discussed  above,  there  is  another 
category  of  data  sets  which  is  required  before  the  URA  system  can 
operate.  Examples  of  these  data  sets  are  data  base  tables  required 
for  the  initialization  of  the  data  base  and  system  default  parameters 
which  can  be  changed  at  each  installation. 

Listed  below  are  the  names  of  such  data  sets  and  their  functions. 

• PSADDL.DATA  - data  base  description. 

Required  for  the  initialization  of  a data  base. 

• SECRET. DATA  - system  default  parameters. 

Can  be  changed  at  each  installation. 

• HELPSHRT. DATA  - text  for  the  HELP  command  (short  version). 

• HELP LONG. DATA  - text  for  the  HELP  command  (long  version). 

• PSAERROR.DATA  - text  for  URA  error  message. 

• DDLA  - data  base  description  analysis  program. 

It  generates  database  tables  from  database  description. 

These  tables  are  required  for  database  initialization. 

• DBIN  - database  initialization  program. 

SYSTEM  SUPPORT  DATA  SETS 

Some  data  sets  are  not  part  of  URA  itself  but  are  included  in 
the  distribution  to  facilitate  the  installation  of  the  URA  system.  One 
example  is  the  INCL  program  which  expands  the  Macro-like  calls  in  the 
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Figure  2.  Listing  of  CLI.CLIST 


FORTRAN  source  code  (see  Section  V) . Others  will  not  be  enumerated 
here  but  will  be  discussed  as  they  are  introduced. 
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SECTION  II 


DISTRIBUTION  TAPES 


Data  sets  on  the  URA  distribution  tape  are  all  IEHMOVE  unloaded 
data  sets,  i.e.,  they  are  all  copied  from  disk  storage  to  tape  by  the 
IBM  utility  program  IEHMOVE.  Standard  labels  are  used  and  recording 
done  at  1600  b.p.i.  Record  format  is  fixed  blocked,  record  length 
is  80  and  block  size  is  800  characters. 

Contents  of  the  tape  not  only  include  the  various  types  of  data 
sets  described  in  the  previous  section,  i.e.  the  data  sets  that  make 
up  URA  proper,  but  also  a group  of  miscellaneous  data  sets  which  are 
used  to  help  install  the  URA  system.  These  data  sets  will  no  longer 
be  required  as  soon  as  the  system  is  in  operation. 

Naming  conventions  used  are  standard  IBM  370  TSO  conventions. 

The  qualifier  .FORT  denotes  FORTRAN  source  data  sets  (e.g.  CLI.FORT, 
CT.FORT),  .ASM  denotes  assembler  source  code,  .OBJ  denotes  object 
modules,  .LOAD  denotes  load  modules,  .CLIST  denotes  TSO  command  pro- 
cedures and  .DATA  denotes  80  character  card  images.  All  data  set 
names  on  the  tape  are  prefixed  by  a TSO  account  number  which  should 
be  changed  to  what  is  appropriate  at  each  installation. 

The  URA  tape  consists  of  object  and  load  modules.  For  facilities 
with  IBM  360  or  370  computers  operating  under  OS/MVT  or  VS,  the  URA 
software  should  be  installed  from  load  modules.  For  versions  of  these 
operating  systems  with  SVCfs  or  access  methods  not  compatible  with 
those  of  OS/MVT,  installation  should  be  done  using  object  modules 
after  rewriting  the  random  access  routines  in  the  URA  software.  The 
instructions  given  in  this  document  are  intended  for  the  TSO  environ- 
ment. For  installations  which  do  not  operate  under  TSO,  appropriate 
modifications  should  be  made  to  the  instructions. 

The  following  Table  is  a listing  of  the  data  sets  on  the  tape  in 
the  order  they  reside  on  the  tape. 

For  the  benefit  of  those  who  require  access  to  the  source, 
code,  a URA  source  tape  is  also  available.  The  contents  of  the  tape 
will  be  listed  in  Section  V.  An  attempt  will  also  be  made  in 
Section  V to  highlight  certain  considerations  in  installing  the 
system  from  source  code.  However,  no  detailed  instructions  are  given, 
for  it  is  felt  that  the  installation  procedure  is  too  complex  and 
environment-dependent  to  implement  without  adequate  system  documenta- 
tion or  assistance  both  from  people  familiar  with  the  systems  aspects 
of  URA,  and  people  familiar  with  the  system  environment  of  the  pro- 
posed installation. 
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Table  I 


Data  Sets  on  Object  Distribution  Tape 
Data  Set  Number  Data  Set  Name 


1 

TS0448 . CALLIB . LOAD 

2 

TS0448 . PSADDL . DATA 

3 

TS0448 • SECRET . DATA 

4 

TS0448.HELPSHRT.DATA 

5 

TS0448 .HELPLONG. DATA 

6 

TS0448 . P SAERROR . DATA 

7 

TS0448.URA.CLIST 

8 

TS0448 . CLI . CLIST 

9 

TS0448 . DDLA . CLIST 

10 

TS0448.DBIN. CLIST 

11 

TS0448 . PSALINK . CLIST 

12 

TS0448 . PSALINK1 . CLIST 

13 

TS0448.NCLI. CLIST 

14 

TS0448 . LIBMTS . FORT 

15 

TS0448.DBRAND.ASM 

16 

TS0448 . DBLIB . LOAD 

17 

TS0448 . FLIB . LOAD 

18 

TS0448 . SLIB .LOAD 

19 

TS0448 . CLI . OBJ 

20 

TS0448 . CLIEX.OBJ 

21 

TS0448.CM.0BJ 

22 

TS0448 . CNC .OBJ 

23 

TS0448.CT.0BJ 

24 

TS0448.C0NT.0BJ 

25 

TS0448 • DBS . OBJ 

26 

TS0448. DCOM. OBJ 

27 

TS0448 • DEL . OBJ 

28 

TS0448.DICT.0BJ 

29 

TS0448.DP.0BJ 

30 

TS0448 . DPSL .OBJ 

31 

TS0448.EI.0BJ 

32 

TS0448 . FPS . OBJ 

33 

TS0448. FREQ. OBJ 

34 

TS0448 . IDX. OBJ 

35 

TS0448 • KPER. OBJ 

36 

TS0448 . KPRT . OBJ 

37 

TS0448.NGA.0BJ 

38 

TS0448.NGP.0BJ 

39 

TS0448 .NLA.OBJ 

40 

TS0448.NLP .OBJ 
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Table  I 


Data  Sets  on  Object  Distribution  Tape  (Concluded) 


Data  Set  Number 


Data  Set  Name 


41 

TS0448.PAV.0BJ 

42 

TS0448 . PCOM. OBJ 

43 

TS0448.PIC.0BJ 

44 

TS0448.PRI0.0BJ 

45 

TS0448.RC0M.0BJ 

46 

TS0448.REN.0BJ 

47 

TS0448. SUM. OBJ 

48 

TS0448. SYNU.OBJ 

49 

TS0448.XREF.0BJ 

50 

TS0448.DBIN.0BJ 

51 

TS0448.DDLA.0BJ 

52 

TS 0448. PSL. OBJ 

53 

TS044  8 . P SLBLK . OBJ 

54 

TS0448.LIBBLK.0BJ 

55 

TS0448.DBBLK.0BJ 

56 

TS0448.EXA.DATA 

57 

TS0448.EXB .DATA 
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SECTION  III 


INSTALLATION  FROM  LOAD  MODULES 


All  the  load  modules  are  grouped  in  one  partitioned  data  set 
called  TS 044 8 . CALLIB . LOAD . 

COPY  DATA  SETS  FROM  TAPE 

All  the  following  data  sets  should  be  copied  from  the  object 
tape  to  disk  (or  other  direct  access  storage)  with  the  IBM  370  utility 
program  IEHM0VE.  The  data  sets  should  be  renamed  replacing  the 
account  number  by  the  TSO  account  number  at  your  installation. 


MODIFY  TSO  COMMAND  PROCEDURES 

Inspect  all  the  .CLIST  data  sets,  changing  all  occurrences  of 
TS0448  to  the  new  account  number  as  well  as  checking  to  make  sure 
each  command  procedure  will  work  at  your  installation. 

SET  DEFAULT  PARAMETERS 

SECRET. DATA  contains  default  parameters  which  can  be  changed  for 
your  particular  installation.  Again,  all  occurrences  of  TS0448 
should  be  changed  to  your  own  account  number. 

INITIALIZE  A DATA  BASE 

A data  base  is  created  or  initialized  in  two  steps.  First  of 
all,  a data  base  description  PSADDL.DATA  is  analyzed  by  a program 


Data  Set  Number 
on  Object  Tape 


Data  Set  Name 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

56 

57 


TS0448. CALLIB. LOAD 
TS0448 . PSADDL.DATA 
TS0448 . SECRET . DATA 
TS0448 . HELPSHRT. DATA 
TS0448 . HELPLONG . DATA 
TS0448 . PSAERROR . DATA 
TS0448.URA. CLIST 
TS0448.CLI. CLIST 
TS0448.DDLA. CLIST 
TS0448.DBIN. CLIST 
TS0448 .EXA.DATA 
TS 044  8 . EXB . DATA 
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DDLA  and  transformed  into  a data  base  table  PSADBTAB. UNFORM.  The 
data  base  table  is  then  formatted  by  a program  DBIN  to  form  a data 
base  which  can  be  interfaced  with  the  rest  of  the  system.  (See 
Figure  3.)  Both  of  these  programs  are  included  in  load  module  form 
in  CALLIB.LOAD. 

The  TSO  commands  to  achieve  the  above  are  contained  in  two 
command  procedures  — DDLA.CLIST  and  DBIN.CLIST.  These  should  be 
executed  by  the  following  commands. 

EXEC  DDLA  f PSADDL.DATA  PSADBTAB. UNFORM1 
EXEC  DBIN  1 PSADB . DATABSE  PSADBTAB. UNFORM f 

A listing  of  the  two  CLIST's  can  be  found  in  Figure  4. 

The  first  line  of  the  data  base  description  contains  the  number 
of  pages  allowable  for  the  data  base  to  be  initialized  (1  page  is 
equivalent  to  4K  bytes).  By  varying  this  number,  the  size  of  the 
data  base  can  be  controlled.  The  number  of  pages  in  the  version  of 
PSADDL.DATA  being  distributed  is  50.  However,  if  this  number  is 
changed,  the  space  allocated  for  the  data  base  in  DBIN.CLIST  should 
also  be  changed  accordingly. 

Instead  of  using  PSADDL.DATA,  one  can  write  one's  own  data  base 
description.  The  data  base  structure  is  documented  in  detail  in  "The 
Structure  and  Contents  of  a PSA  Data  Base"(l)  and  nA  Data  Base 
Management  System  for  PSA  Based  on  DBTG  71"(2). 

TO  START  UP  THE  SYSTEM 

For  system  startup,  first  enter  TSO  command: 

EXEC  URA 

This  generates  all  temporary  data  sets  required  for  execution  of  URA 
commands.  Then  enter: 

EXEC  CLI 

which  is  a restart  procedure  that  brings  the  execution  into  URA 
command  mode  - that  is,  URA  commands  can  be  entered.  If  at  any  time 
an  error  occurs  such  that  execution  is  taken  out  of  this  mode  back 
into  TSO  command  mode,  CLI.CLIST  can  be  executed  again  by: 

EXEC  CLI 

to  restart  the  URA  system. 
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data  base  description 
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PSLDDL.DATA  data  base  description 

DDLA 

I 

PSADBTAB. UNFORM  data  base  tables 
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DBIN 
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PSADB. DATABASE 

data  base 
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Initialization  of  a URA  Data  Base 
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Figure  4.  CLISTfs  for  Initialization  of  Data  Base 


As  explained  in  Section  I,  the  ability  to  enter  another  URA 
command  as  soon  as  the  previous  one  has  finished  execution  depends  on 
recursive  executions  of  the  two  command  procedures  CLI.CLIST  and  GO. CLIST. 
However,  each  such  recursive  initiation  of  a CLIST  from  another 
CLIST  uses  up  a certain  amount  of  core  storage.  If  enough  URA  commands 
have  been  executed  without  interruption,  one  could  run  out  of  core. 

In  this  case,  the  URA  system  can  also  be  restarted  just  by  executing 
CLI.CLIST  again. 

The  newly  installed  URA  system  can  be  tested  with  the  two  examples 
included  (EXA.DATA  and  EXB.DATA) . These  contain  URL  statements  which 
can  be  entered  into  the  data  base. 
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SECTION  IV 


LOADING  FROM  OBJECT  MODULES 


If  the  URA  system  is  being  installed  on  the  IBM  370  or  a com- 
parable machine  but  the  operating  system  is  not  altogether  compatible 
with  OS/MVT,  the  procedures  outlined  in  this  section  should  be  followed. 

COPY  DATA  SETS  FROM  TAPE 

All  data  sets  except  CALLIB.LOAD  should  be  cooied  from  the  object 
tape  to  disk  with  the  IBM  370  utility  program  IEHMOVE.  The  data  sets 
should  be  renamed  replacing  the  account  number  by  the  TSO  account 
number  at  your  installation. 

MODIFY  TSO  COMMAND  PROCEDURES 

Inspect  all  the  .CLIST  data  sets,  changing  all  occurrences  of 
TS0448  to  the  new  account  number  as  well  as  checking  to  make  sure  each 
CLIST  will  work  at  your  installation. 

INSTALLATION-DEPENDENT  CODE 

The  code  that  most  likely  needs  to  be  changed  or  rewritten  is 
the  code  that  is  special  to  each  installation.  The  installation 
dependent  code  in  URA  resides  within  two  source  libraries  DBRAND.ASM 
and  LIBMTs.FORT. 

The  routines  in  DBRAND.ASM,  viz: 

RANDCL 
RAND OP 
RANDOW 
RANDRD 
RANDRW 
RANDWT 

are  random  access  routines.  A listing  of  their  contents  can  be  found 
in  Appendix  I.  If  not  compatible  with  the  operating  system  at  your 
particular  institution,  they  should  be  rewritten.  Each  routine 
should  then  be  compiled  and  link-edited  into  a separate  load  module 
which  should  replace  the  routine  of  the  same  name  in  the  library 
DBLIB.LOAD. 
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The  source  library  LIBMTS.FORT  has  the  following  members,  listings 
of  which  can  also  be  found  in  Appendix  Is 

CLOSEDB 

CPUSEC 

GETDAT 

GETERR 

GETTIM 

No  change  is  required  for  CLOSEDB  and  GETERR.  The  other  routines  all 
make  use  of  Assembly  subroutines  which  obtain  the  date,  time  of  day 
and  CPU  time.  These  subroutines  are  called  INTIME,  JTIME,  DATE  and 
CLOCK.  A listing  of  their  source  code  and  an  explanation  of  their  usage 
can  be  found  in  Appendix  II.  The  source  code  should  be  scanned  to  see 
if  they  are  compatible  with  your  operating  system.  If  so,  no  change 
is  required.  Otherwise,  the  code  should  be  modified  so  that  it  will 
execute  correctly  in  your  facility.  Or,  there  may  be  similar  timing 
routines  in  your  installation  which  will  serve  the  purpose.  In  that 
case,  the  FORTRAN  instructions  in  CPUSEC,  GETDAT  and  GETTIM  which  call 
these  timing  routines  should  be  changed.  In  either  case,  the  three 
routines,  CPUSEC,  GETDAT  and  GETTIM  have  to  be  recompiled  and  a load 
module  for  each  including  new  versions  of  the  timing  subroutines. 

Each  of  these  load  modules  CPUSEC,  GETDAT  and  GETTIM  should  replace 
members  of  the  same  name  in  the  load  library  SLIB.LOAD. 


RE-LINK-EDIT 

Since  any  of  the  changes  outlined  above  involves  a change  in  the 
libraries  DBLIB  or  SLIB,  the  URA  command  handler  and  command  program 
modules  have  to  be  re-link-edited  to  include  the  new  versions  of  the 
library  modules  (refer  to  Figure  1) . 

The  command  handler  CLI.OBJ  should  be  link-edited  using  the 
command  procedure  NCLI.CLIST,  SYNU.OBJ  and  DPSL.OBJ  should  be  link- 
edited  using  PSALINK1 . CLIST  and  all  other  URA  command  program  modules 
such  as  CT.OBJ , CM. OBJ  and  XREF.OBJ  with  PSALINK. CLIST . Each  of  the 
resulting  load  modules  will  automatically  replace  members  of  the  same 
name  in  CLLIB.LOAD.  The  two  programs  required  in  the  initialization 
of  a data  base  (DBIN.OBJ  and  DDLA.OBJ)  should  also  be  link -edited 
in  a similar  way  with  PSALINK. CLIST. 

At  this  point,  the  procedures  set  forth  in  the  previous  section 
under  paragraphs  Set  Default  Parameters,  Initialize  a Data  Base  and 
To  Startup  the  System  should  be  followed  to  complete  the  installation. 
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SECTION  V 


SOURCE  MODULES 


For  the  benefit  of  those  who  would  like  to  make  changes  to  the 
URL/URA  system,  or  those  who  would  like  to  install  it  on  a machine 
other  than  the  IBM  360/370  series,  the  URA  system  is  distributed  in 
source  form  as  well.  Table  II  contains  a list  of  the  data  sets  on 
the  source  distribution  tape.  A "C"  denotes  those  data  sets  which 
are  of  interest  only  to  those  making  changes  to  an  already  installed 
URA  system  operating  under  TSO  on  the  IBM  360/370. 

Note  that  if  the  system  were  to  be  installed  on  a machine  whose 
tape  recording  format  is  not  compatible  with  that  of  the  IBM  360/370 
on  which  the  distribution  tape  is  made,  the  source  code  will  have  to 
be  distributed  via  card  decks  or  whatever  other  means  which  makes  the 
transfer  possible.  As  has  already  been  mentioned,  installation  of 
this  system  on  another  machine  without  adequate  systems  documentation 
or  the  help  of  those  familiar  with  the  system  is  really  not  advisable. 
Besides,  no  detailed  instructions  can  be  given  here  without  knowing 
the  environment  under  which  the  system  will  operate.  However,  an 
attempt  will  be  made  in  this  section  to  point  out  the  peculiarities 
that  have  to  be  taken  into  account  and  to  outline  the  steps  that 
should  be  taken.  Making  changes  to  the  source  code  on  the  same 
machine  ( IBM  360/370)  is  much  simpler  and  the  procedure  will  also  be 
outlined. 

Most  of  the  source  code  is  written  in  FORTRAN,  the  rest  in  370 
Assembly  Language. 

FORTRAN  CONVENTIONS 

An  unusual  convention  similar  to  a macro  call  is  used  in  the 
FORTRAN  source  code.  The  rationale  behind  this  is  that  there  are 
many  common  sections  of  code  which  are  used  throughout  the  URA  programs. 
This  common  code  consists  mainly  of  FORTRAN  COMMON  blocks  which  define 
variables  shared  among  subroutines,  and  FORTRAN  DATA  statements  which 
set  the  values  of  these  variables.  Furthermore,  these  variables  often 
represent  parameters  such  as  the  size  of  the  symbol  table,  number  of 
lines  in  a page  etc.,  which  users  of  URA  may  wish  to  change  from  time 
to  time.  These  common  blocks  of  code  are  therefore  not  included  in 
the  FORTRAN  source,  but  their  required  presence  is  indicated  by  the 
name  of  the  block.  For  example,  if 

*CALL,RECTAB 

appears  in  between  two  FORTRAN  statements,  a common  block  called  RECTAB 
should  be  inserted  in  its  place.  All  the  common  blocks  of  code  to  be 


24 


Table  II 


Data  Sets  for  Source  Distribution 
Data  Set  Number  Data  Set  Name 


1 

TS 04 4 8 . P SADDL . DATA 

2 

TS0448. SECRET. DATA 

3 

TS0448 . HELP SHRT. DATA 

4 

TS0448 . HELPLONG . DATA 

5 

TS0448.PSAERR0R.DATA 

6 

TS0448.DDLA. DATA 

7 

TS0448 . DBIN . DATA 

8 

TS0448 . INCL . DATA 

9 

TS0448 .DBCOM. DATA 

10 

TS0448 . PSACOM. DATA 

11 

TS0448.EXA.DATA 

12 

TS0448.EXB.DATA 

13 

TS0448.SLIB.ASM 

14 

TS0448. DBASM.ASM 

15 

TS0448.DBRAND.ASM 

16 

TS0448. LIBMTS . FORT 

17 

TS0448 . DBUSER.DATA 

18 

TS0448.DBL0W.DATA 

19 

TS0448.DBTAB.DATA 

20 

TS0448.FLIB.DATA 

21 

TS0448.PSL.DATA 

22 

TS0448.PSLBLK.DATA 

23 

TS0448.DBBLK.DATA 

24 

TS0448 . LIBBLK .DATA 

25 

TS 0448. CLI. DATA 

26 

TS0448. CLIEX.DATA 

27 

TS0448 . CM. DATA 

28 

TS0448.CNC.DATA 

29 

TS0448.C0NT.DATA 

30 

TS0448 . CT.DATA 

31 

TS0448. DBS. DATA 

32 

TS0448. DCOM. DATA 

33 

TS0448. DEL. DATA 

34 

TS0448.DICT.DATA 

35 

TS0448. DP. DATA 
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Table  II 


Data  Sets  for  Source  Distribution  (Concluded) 


Data  Set  Number 


Data  Set  Name 


36 

TS0448 . DPSL. DATA 

37 

TS0448.EI .DATA 

38 

TS0448. FPS .DATA 

39 

TS0448. FREQ. DATA 

40 

TS0448 . IDX. DATA 

41 

TS0448.KPER.DATA 

42 

TS0448 . KPRT . DATA 

43 

TS0448.NGA.DATA 

44 

TS0448 .NGP .DATA 

45 

TS0448. NLA. DATA 

46 

TS0448. NLP .DATA 

47 

TS0448 . PAV . DATA 

48 

TS0448. PCOM. DATA 

49 

TS0448. PIC. DATA 

50 

TS0448.PRI0.DATA 

51 

TS0448.RC0M.DATA 

52 

TS0448. REN. DATA 

53 

TS0448 . STR. DATA 

54 

TS 044 8. SUM. DATA 

55 

TS0448 .SYNU. DATA 

56 

TS0448 .XREF.DATA 

57 

TS0448 .PSACOM. DATABASE 

c 

58 

TS0448 .FORTIHC . CLIST 

c 

59 

TS0448.LIBBLK.0BJ 

c 

60 

TS0448.DBBLK.0BJ 

c 

61 

TS0448 .PSLBLK. OBJ 

c 

62 

TS0448 .PSL. OBJ 

c 

63 

TS0448.DBLIB.L0AD 

c 

64 

TS0448 .FLIB . LOAD 

c 

65 

TS0448.SLIB.L0AD 

c 
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thus  inserted  (a  total  of  about  2000  lines)  are  organized  into  a data 
set  named  PSACOM.DATA,  If  any  of  these  blocks  were  to  be  changed,  the 
modification  needs  to  take  place  only  once  in  PSACOM.DATA,  instead  of 
at  all  occurrences  of  the  common  block  throughout  the  code  which  may 
be  quite  tedious.  Another  advantage  is  that  the  stored  source  code  is 
shorter  in  length.  This  may  be  important  since  storage  requirements 
for  URA  are  not  trivial,  as  will  be  made  evident  in  the  next  section. 

These  advantages  are  achieved  at  the  sacrifice  of  processing  time,  of 
course. 

A FORTRAN  program  is  written  to  insert  the  blocks  from  PSACOM.DATA 
into  the  source  code  by  replacing  each  *CALL  statement  with  the  correct 
block.  This  program  is  called  INCL  and  its  source  is  contained  in 
INCL.DATA.  It  also  exists  in  executable  load  module  form  as  a member 
of  CALLIB.LOAD.  The  way  the  INCL  program  works  is  that  it  makes  use  of  the 
URA  data  base  handling  capability.  PSACOM.DATA  has  to  be  built  into  a 
URA  data  base.  INCL  will  read  in  the  data  base  as  input  and  expand 
the  *CALL  statements  into  their  respective  COMMON  blocks.  A version 
of  this  data  base  built  from  PSACOM.DATA  is  included  in  this  distribu- 
tion of  the  source  code  for  the  purposes  of  those  who  already  have  a 
URA  system  working  but  wish  to  make  modifications  to  the  system.  This 
will  save  them  the  trouble  of  having  to  generate  the  data  base  them- 
selves (for  instructions  on  building  a data  base  please  refer  to 
Section  IV) . This  is  true  provided  that  no  change  is  made  to  the 
COMMON  blocks  in  PSACOM.DATA.  As  can  be  expected,  to  install  URA  on 
another  machine  is  much  more  complicated.  We  will  go  into  that 
further  in  a subsequent  paragraph. 

TO  MAKE  CHANGES  TO  URA  COMMAND  MODULES 

If  some  version  of  URA  has  already  been  installed  from  load  or 
object  modules,  and  changes  are  to  be  made  in  URA  command  program 
modules,  the  procedure  is  not  too  complicated.  First,  make  the 
change  to  the  source  of  the  command  module,  say  SUM. DATA.  Then 
include  the  common  blocks  (or  expand  the  *CALL  statements)  and  compile 
the  expanded  FORTRAN  code  by  executing  FORTIHC.CLIST  (see  Figure  5). 

TO  MAKE  CHANGES  TO  THE  LIBRARIES 

To  make  a change  to  the  libraries  is  slightly  more  involved.  The 
source  for  SLIB  is  in  SLIB.DATA,  that  for  FLIB  in  FLIB.DATA.  However,  there 
are  several  source  libraries  which  make  up  DBLIB.  They  are: 

DBLOW . DATA  DB ASM. ASM 

DBTAB . DATA  DBRAND .ASM 

DBUSER.DATA 

LIBMTS .FORT 
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Figure  5.  Listing  of  FORTIHC.CLIST 


If  a change  is  made  to  an  Assembly  Language  library,  one  only  needs 
to  reassemble  it  after  the  change.  If  the  change  is  made  to  a 
FORTRAN  library,  one  needs  to  expand  the  *CALL  statements  using  INCL 
before  recompiling  it.  After  the  reassembly  or  recompilation,  one 
has  a library  in  the  form  of  a large  object  deck  with  each  CSECT  or 
subroutine  stacked  one  after  the  other.  This  is  still  not  in  usable 
form.  Another  support  program  called  LKIN,  the  source  of  which  is  in 
LKIN.FORT,  was  written  to  split  up  the  object  module  by  sub- 
routines. A load  module  form  of  LKIN  also  exists  as  a member  in 
CALLIB . LOAD . After  executing  LKIN,  the  new  object  library  produced 
should  be  link-edited  into  its  load  module  library. 

TO  INSTALL  URA  ON  ANOTHER  MACHINE 

*CALL!s  in  the  problem  arise  because  the  source  FORTRAN  code  has 
to  be  expanded  and  yet  to  achieve  this  with  the  INCL  program  requires 
that  part  of  the  URA  system,  viz.  the  data  base  package,  be  operational. 
This  is  sort  of  a "bootstrapping"  procedure.  There  are  two  alterna- 
tives. One  is  to  write  one's  own  program  to  expand  the  *CALL  state- 
ments. However,  considering  the  fact  that  PSACOM.DATA  consists  of 
over  a hundred  COMMON  blocks  amounting  to  about  2000  records,  and  the 
frequency  of  occurrence  of  the  *CALL  statements,  this  will  be  no  easy 
matter.  The  other  alternative  is  to  bootstrap  the  system  by  first 
making  the  data  base  package  operational.  This  can  be  done  by  expand- 
ing the  FORTRAN  code  which  makes  up  DBLIB  either  manually  or  by 
developing  your  own  program  to  do  it.  Fortunately,  only  a small 
portion  of  PSACOM.DATA  is  required  in  the  expansion  of  the  data  base 
libraries,  and  they  have  been  extracted  into  a data  set  DBCOM.DATA. 

Once  DBLIB  is  operational,  INCL  and  DBIN  can  be  used  (their  source 
code  has  to  be  expanded  manually,  too)  to  build  PSACOM.DATA  into  a 
data  base  PSACOM. DATABASE  and  expand  the  source  code  for  the  rest  of 
the  system.  After  that,  the  system  can  be  compiled,  and  transformed 
into  executable  (load)  modules.  Needless  to  say,  none  of  the  TSO 
capabilities,  such  as  CLIST's,  apply.  The  top  level  initiation  of  the 
URA  command  by  means  of  TSO  command  procedures  will  no  longer  function 
in  a non-TSO  environment.  (Refer  to  Top  Level  Operating  Environment 
in  Section  I,  and  To  Startup  the  System  in  Section  III.)  Another 
method  of  management  will  have  to  be  worked  out.  Since  the  CLI 
module  writes  out  the  appropriate  TSO  command  procedure  for  the  URA 
command  entered,  the  code  in  CLI  will  have  to  be  modified  to  achieve 
a change  in  the  top-level  management. 


29 


SECTION  VI 


STORAGE  REQUIREMENTS 


MAIN  STORAGE 

This  particular  version  of  URL/URA  presently  operates  within  a 
256K  partition  under  TSO.  Actually,  most  of  the  URA  commands  will 
operate  within  128K,  except  IP  and  DPSL,  the  two  commands  that  deal 
with  entering  and  deleting  information  in  the  data  base.  The  module  that 
handles  the  IP  command  is  called  SYNU  (see  Section  I). 

The  maximum  number  of  pages  (4K  bytes)  of  the  data  base  that  can 
be  brought  into  core  at  any  time  has  been  cut  down  to  4K  so  that 
SYNU  can  fit  into  a 256K  partition.  In  building  large  data  bases, 
this  maximum  number  of  pages  in  core  can  be  made  larger  if  a larger 
partition  is  available,  or,  if  the  IP  command  can  be  made  to  run 
under  a batch  environment  with  more  core  available.  This  will  greatly 
enhance  the  execution  speed  and  can  be  achieved  by  changing  variable 
MPICOR  in  PSLBLK  to  the  desired  number  of  pages  (not  to  exceed  30 
pages)  and  the  dimension  of  PAGE  to  a value  equal  to  the  product  of 
MPICOR  and  1024.  (See  Figure  6).  Figure  7 contains  an  example  of 
how  IP  can  be  run  as  a batch  job  on  the  IBM  370/158. 

The  operating  environment  to  which  all  the  above  comments 
pertain  is  the  OS/MVT  operating  environment.  For  operations  under 
VS  or  other  systems  with  virtual  memory  the  partition  size  will  no 
longer  become  a problem. 


SECONDARY  STORAGE 

IBM  3330  disk  storage  is  used  at  the  installation  where  the 
distribution  tapes  were  made.  Track  length  is  13030  bytes.  The 
whole  URL/URA  system  including  source,  load  and  some  object  modules 
requires  over  2000  tracks  to  store.  Just  that  part  of  it  that  is 
required  for  the  everyday  execution  of  URA  (only  load  modules, 
auxiliary  data  sets,  CLISTs  etc.)  requires  about  800  tracks.  As  one 
can  see  these  numbers  are  not  trivial  and  may  incur  considerable  day 
to  day  operation  cost. 

Appendix  III  contains  more  details  on  the  size  of  each  data 

set. 
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OTHER 


The  number  of  files  allocated  by  URA  to  service  some  commands 
may  be  as  high  as  14,  Provision  therefore  must  be  made  in  the 
number  of  dynamic  allocation  of  files  in  the  TSO  logon  procedure. 
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02400 
02500 
02510 
02520 
02530 
02540 
02550 
02560 
02570 
02580 
02590 
02600 
02610 
02620 
02630 
02640 
02650 
02  66  0 
02670 
02  68  0 
02690 
02700 
02710 
02720 
02730 
02740 
02750 
02760 
02770 
02780 
02790 
02800 
02810 
02820 
02830 
02840 
02850 
02860 
02870 
028  SO 
02890 
02900 
02910 
02920 
02930 
02940 
02950 
END  OF 


C 

CUTS 

CMTS 

CUTS 

C 

C 


COMMON/ 3 LEMS  /RDBLEN, I OBLEN, SOB LEN , ODBLEN, MDBLEM , 

A PH  I LEN, PRHLEN 

INTEGER  RDBLEN,  I DBL EM, SDB LEN, ODBLEN, MDB LEN , 

Ci  PHI  LEN,  PRHLEN 

COMMON/ PAG  I NF/NPAGES, PAGS I Z, F I LE, CURPNO, MP I COR, MP I COR, NCUR, 
a PH  I CIJR,  PREF(32) 

INTEGER  NPAGES,  PAGS  I Z,  FI  LE  , CURPNO,  I1P I COR,  NP  I COR,  NCUR, 
a PH  I CIJR,  PREF 

COMMON/ PAGE  /PAGE (3072) 

INTEGER  PAGE 

COMMON/ DBSWS  /OPENSU, LEVEL 

INTEGER  LEVEL 

LOGICAL  OPENS'./ 

COMMON/RANDCM/CNRRP,  CURVJP,  RMOD,  WMOP,  BLEN 
INTEGER  CIJRRP,  CURl/P,  RHOD,WMOD 
I NTEGER*2  BLEN 


DATA  NCI// 4/ 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


RDBLEN/6/ 
I DBLEN/5/ 
SDBLEN/7/ 
ODBLEN/2/ 
MDBLEN/2/ 
PHI LEN/2/ 
PRHLEN/1/ 


C 

C.MTS 

CMTS 

CMTS 

C 

*EOR 

DATA 


DATA  NPAGES/2/ 

DATA  PAGS I Z/1024/ 

DATA  OPENSU/. FALSE./ 
DATA  LEVEL/0/ 

DATA  RMOD/O/ 

DATA  WMOD/Z00020000/ 
DATA  BLEN/4096/ 

END 


Figure  6 . Portion  of  PSLBLK 
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//IP#NOR A D 

JOB 

// 

1 

//JOBLIB 

DD 

//IP  1 

EXEC 

//FT15F001 

DD 

// 

1 

//FT11F001 

DD 

//FTIOFOO 1 

DD 

//DB0002  1 

3D  D 

n 

1 

// FT03F001 

DD 

// 

1 

//FT06F00 1 

DD 

//FT 13F00  1 

DD 

// 

j 

//FT14F001 

DD  1 

it 

1 

//FT01F001 

DD 

// 

1 

//FT05F00 1 

DD 

//FT08F001 

DD 

// 

1 

//FT  09F00 1 

DD 

it 

1 

n 

(572G,D72,DESK,10) , ‘CHENG  L * » CLASS=D , TIME =20  , 
REGI0N=256K 

DSN=TS0449 .CAL LI B .LOAD , DI SP=SHR 
PGM=SYNU 

DSN=TS0448 . PSAERROR . DA  TA » DIS  P=OLD , 
DCB=(RECFM=FB,LRECL=80, BLKSIZE=800) 

SYSOUT=A 
SYSOUT= A 

SN=TS0307.PSADB. DATA BAS E,DISP=OLD, 
DCB=(RECFM=F,8LKSIZE=4096) 

DSN=TS0443 . PSADBT  AB .UN FORM  , DI SP=OLD  , 

DCB  = ( REC FM=VBS  » BLK  SIZE=800) 

SYSOUT=A 

DSN=TS0443 .PSAFPAR. UNP  ORM  »DISP=OLDt 
DCB=(RECFM=VBS»BLKSIZE=800) 

DSN=TS 0448. COMMENTS. DAT A, DISP=OLD, 
DCB=(RECFM=FB,LRECL=B0,BLKSIZE=800 ) 

DSN=TS0448.RTA .UN FORM » DISP=OLD» 
DCB=(RECFM=VBS,BLKSIZE=*00) 

DSN=TS0307 .NORAD l.DATA,DI SP=OLD 
DSN=TS0448 .PS A8 . TEMP  »D ISP=OLD , 

DCB= (RECFM=FB»  LRECL=40»  BLKS IZE=400 ) 
DSN=TS0448.PSA9. UNFORM, DISP=OLD, 

DCB= ( RECFM=VBS  »BLKSIZE  = 800) 


Figure  7.  To  Execute  IP  Under  Batch  Environment 


33 


APPENDIX  I 


LISTINGS  OF  DBRAND. ASM  AND  LIBMTS . FORT 
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list  'ts 
1 TS0409 
00010 
00020  C 
00030  C 
00040  C 
00050  C 
11610 
11620 
11630 
11640  C 
11650  C 
11660  C 
11670  C 
11680 
11690 
11700 
11710 
11720 
11730 
11740 
14420 
14430 
14440  C 
14450  0 
14460  C 
06480 
06490 
06500 
06510 
065 2 0 C 
06530  C 
06540  C 
06550  C 
06400 
06410 
06420  C 
06430  C 
06440  0 
06450  f 
00100 
00110  C 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210  C 
00220 
00230 
0 024  0 
READY 


04  09.1  I bmts . fort (closdb) 1 
. LI  BMTS.  FORT(CLOSDB)  ' 

SUBROUTINE  CLOSDB 
LAST  CHANGE  - 740329  - AL  HERSHEY 

SUBROUTINE  TO  CLOSE  DATA  BASE  AND  DO  ANY  OTHER  STUFF 

COMMON/ PAR I N/ READSU, PUNSW, OUTSW, NAM( 8 ) , STA, DRNBUF, ABRTSW 
INTEGER  NAM,DBNBUF 

LOG  I CAL  READSU,  PUMSW,Ol ITSW, STA, ABRTSW 

FOR  GIVING  PARAMETERS  TO  ROUTINES  WHICH  COULD  READ 

READSU  - WHETHER  TO  READ  NAMES  FROM  LIOE 

PUNSW  - WHETHER  TO  PUNCH  OUTPUT  ON  FOR  FUTURE  REFERENCE 

OIJTSW  - WHETHER  TO  PRODUCE  REPORT  TYPE  OUTPUT 

NAM  - PLACE  TO  STORE  NAME,  AND  NAME  IF  GIVEN 

STA  - WHETHER  STAND  ALOHEC .TRUE. ) OR  WITH  CLIC. FALSE.) 

DBNBIJF  - NUMBER  TO  USE  FOR  NRUF  WHEN  OPENNING  D.B. 

ABRTSW  - WHETHER  OR  NOT  TO  STOP  DEAD  IN  PASS  TWO 

COMMON/ BU F 80/ [*ll F 80  ( 20) 

INTEGER  BUF80 

80  CHARACTER  BUFFER  FOR  GENERAL  PURPOSES 

COMMOII/SETS/AL  LNAN(  2),  PsELAC  2)  , RELB(  2),  RFLC(  2),ALINE(  2), 
n S YF1F OR  ( 2 ) , A L PH  A(  2 ) , BY V Al.  ( 2 ) 

I NTEGER  ALLNAU,RELA,RELB,RELC, AL I NE, 
u SYNFOR, ALPHA, BYVAL 

CHARACTER  FORM  OF  SET  NAMES 
INITIALIZED  BY  B L°CK  DATA 

C OMMO  f 1/  D L AN  K S / B I.  AN  K ( 3 0 ) 

INTEGER  BLANK 

CONTAINS  BLANKS  FOR  VARIOUS  PURPOSES 
INITIALIZED  BY  BLOCK  DATA 

I NTEGER  I ERR,  f,l’f \,  ABRAYC  6 ) , I 


CALL  SMOVEC BUF 8 0, 1, BLANK, 1,80) 

CALL  CARDCALLNAM, f'I'M,  I ERR) 

CALL  I)BST(Ij3, ARRAY,  IERR) 

CALL  I TOC ( DBNBIJF, BIJF SO,  1, 4) 

CALL  I TOC ( HUM, BUF80, 5, 6 ) 

DO  10  1-1,4 

10  CALL  I TOC ( ARRAY ( I ) ,BNF80, I *5  + 6, 5 ) 

CALL  I TOC(  ARRAYC 5 ) ,l»llF8n, 31,  7) 

CALL  I TO C( ARRAY ( 6),BDF80,38,5) 

CALL  PIJTSTAC  1 SELV:  TPSASTAT ( LAST+1)  1 , 4 2 , Bl * F 8 0 ) 
CALL  CLOSCO, ARRAY, IERR) 

RETURN 

END 
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list  'ts0409.ll bnts. fort (cpusec) ' 
'TS 04 09. LI BMTS. FORT (CPUS EC) ' 


00250 
00260  C 

SUBROUTINE  CPUSEC(S) 

00270  C 
00280  C 

IF  S « 0 , INITIALIZE 

00290  C 
00300  C 

OTHERW 1 SE,  SET  S EQUAL  TO  THE  NUMBER  OF  CPU  MILLISECONDS 
USED  SINCE  LAST  CALL  TO  CPUSEC  WITH  S = 0 

00310  C 
00320 
00330  C 

INTEGER  S,K, 1 

00340  C 
00350  C 

VALUE  RETURNED. . . 

00360  C 
00370  C 

S --  ELAPSED  CPU  SECONDS  SINCE  INITIALIZATION 

00380 
00390 
00400 
00410  C 

IF(S)20,10,20 
10  CALL  1 NT  1 ME ( 0 ) 
RETURN 

00420 
00425 
00430 
004  40 
READY 

20  l-JTIME(S,K) 

S = S * 26.04166  /lOOO. 

RETURN 

END 
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list  'ts0409.ll bmts. fort(getdat) ' 

' TS0409. LI BMTS. FORT(GETDAT) ' 

00450  SUBROUTINE  GETDAT(MDY) 

00460  C LAST  CHANGE  - 740320  - AL  HERSHEY 
00470  C 

00480  C RETURN  DATE  IN  CHARACTERS 
00490  C 

00500  INTEGER  I1DY(1) 

00505  DATA  BLANKS/'  '/ 

00510  C 

00520  C MDY  ->  12  CHARACTER  DATE  (MMM  DO,  19YY  IN  MTS) 
00530  C 

00540  C 

00550  CALL  DATE(MDY) 

00555  MDY (3 )=BLANKS 

00560  RETURN 

00570  END 

READY 


38 


list  ' ts0409. 1 Ibnts.  fort (ne ter r) 1 
,TS0409.LIB^TS.FORT(GETERR), 


00010 
00020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00230 
00290 
00300 
00310 
003  20 
00330 
00340 


00360 
00370 
00380 
00390 
90400 
00410 
00420 
00430 
00440 
004  50 
00460 
no  4 7i) 
00430 

004  9 0 
00  500 

00519 

00520 
00530 
00540 
00550 
00560 

005  70 
00530 
00  59  0 
1)0690 
09610 
9 9620 
00  630 
00640 
00650 
nnr,60 
00670 

con  no 

0(1690 
00  700 
00710 
00  720 

99730 

00  740 
00750 
READY 


SUBROUTINE  GET  ERR(  ERRMUI1,  ERRLEN,  ERRCH) 

LAST  CHANGE  UTS  VERSION  - 740322  - AL  HERSHEY 

GET  CHAR  FORM  OF  ERROR  FROM  ERROR  FILE 

INTEGER  ERRNUM,  ERRLEN,  ERRClK  1 ) 

ERRNUM  ->  ERROR  NUMBER 

ERRLEN  <-  LENGTH  OF  ERROR  COMMENT  RETURNED 
ERRCfl  <-  CHARACTER  FOR  OF  ERROR  RETURNEO 

COMMON/ L I 0/1.1  OA,  LIOB,  LI  OC,  LI  OD,  LI  OE,  LI  OF,  LI  OG,  LI  OH, 
A U 0 1,  L I OJ,  LI  OK,  LI  OL,  L I OH,  LI  Oil,  u 00,  LI  op.  Lion,  LI  OR, 
6,  LIOS,LIOT,LIOU,LIOV,LIOU 
I NTEGER  LI OA, LI  OB, LI OC, LI OD, LI OE, LI  OF, LI  00, L I OH# 

A L 10  I , LI  0 J,  L I OK,  L I OL,  LI  Oil,  LION,  LI  00,  LI  Op,  LI  OQ#  LI  OR, 
A L I OS,  LI  OT,  LI  OH,  LI  OV,  LI  01/ 

PSA  LOGICAL  10  UNITS 


99350  C 


LIOA  - SYNTAX  ERRORS  FOR  UPDATE 

LI  OB  - PARSE  TABLES  FOR  UPDATE  (OUTPUT  OF  PREPROCESSOR) 

LIOC  - DATA  BASE 

LIOI)  - DATA  BASE  TABLES 

LIOE  - INPUT  OF  NAMES  FOR  SOME  OUTPUTS 

LI  OF  - PS  L INPUT  TO  UPDATE 

LIOG  - OUTPUT  OF  REPORT  SYSTEM 

LION  - FORMATTED  LIST  PUNCH  OUTPUT 

LIOI  ^ NAMES  TO  BE  SORTED  FOR  XREF 

LIOJ  - SYMBOL  TABLE  OUMP  FOR  XREF 

LI  OK  - COMMAND  LANGUAGE  INPUT 

LIOL  - SYSTEM  ERRORS 

LIOM  - COMMAND  CORRECTION 

LION  - COMMAND  LANGUACE  ECHO 

LI  00  - COMMENTS  TO  USER  FOP  DFLETF  RENAME  ETC. 

LI  OP  - I N PUT/OUTPUT  OF  STUFF  FOR  NAME  USAGE  INDEX 
LI  OR  - I NPIJT/OUTPUT  OF  COMMON  AREAS  FOR  PARAMETERS 
LI  OR  - INPUT  FOR  CHANGE-TYPE  COMMAND 
OS  - INPUT/HUTPUT  FOR  NAMF  GEN  NAMES 
OT  - FILE  FOR  SAVE  COMMAND 
OU  - PUNCH  FILE  FOR  PROMO  COMMAND 
OV  - INPUT  FILE  FOR  PLONG 
OM  - PUNCH  FILF.  FOR  INDEX 

t NTEGER*  2 I.EN2 
INTEGER  I.IHJM,  AT  I / ?./ 

INTEGER  BUE(?P) 

INTEGER  LEN 


CALL  SlinVE(ERRCH,l,7!fPSA09o:  ,1,7) 

LEN  - 3 

I T ( ERRIHJM  .IT.  100)  LEN  - 2 
I F(  ER.RNIJM  .LT.  19)  LEN  « 1 
CALL  I TOC  (ERR  HUM,  ERRCII,  7 -LEM,  LEM) 
LNIJM  - ERRNUM  * 1~99 
CALL  READ(BHF, LEN2,  ATI  , LNIJM,  LIOA) 
LEN  - LEN2 


00  10  1-1, ERRNUM 
READ ( L I OA, 29)  SUE 
10  CONTINUE 
20  FORMAT ( 20A4 ) 

REWIND  LIOA 

06)  30  I -1,  79 
LEN  - 30  - I 
J - I SCOM.P(  BUF,  LEN,  1*1 
I F( U . NE.  9)  GOTO  49 
30  CONTINUE 
LEN  - 1 


,1,1) 


40  CALL  SMOVEC  ERRCfl,  3,  NNF,  1,  LEU) 
ERRLEN  - LEN  + 7 
RETURN 
END 
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O O O O o o o 


SUBROUTINE  GETTIM(HHMMSS) 

RETURN  TIME  IN  CHARACTERS 
INTEGER  HHMMSS ( 1 ) 

HHMMSS  — 8 CHARACTER  TIME  (HH:MM:SS  ) 

' * CALL  * CLOCK(HHMrisS ) * 

RETURN 

END 
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1 i st  ' ts0400.airnnd.nsn(  riimlcl  ) * 

'Tsnnoo.nBRAnn.AsrKRAfjncL) ' 


nooio 

TITLE 

' RAfinCL(FDESO)  RANDOM  CLOSE 

00020 

RANDCL 

CSECT 

00030 

USING 

*,12 

00040 

STM 

14,12,12(13) 

00050 

LR 

12,15 

0 0 0 G 0 

I.A 

15, CLSA 

00070 

ST 

15,0 (, 13) 

00030 

ST 

13, 4 ( , 15  ) 

orooo 

00100 

* 

LR 

13,15 

00110 

1. 

2, n ( , i ) 2=nrn  Anm 

00120 

00130 

* 

L 

2, 0 ( , 2 ) 

0014  0 
00150 

* 

CLOSE 

((?.)) 

00160 

S R 

15,15 

00170 

1. 

i:.,4(,i3) 

n o 1 S 0 

i.n 

0,12,20(13) 

onion 

L 

14, 12 (, 13) 

00200 
00  210 

* 

n n 
> \ 

14 

002  20 
On  230 
’.E  ANY 

OLGA 

us 

END 

10  A 
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1 1st  ' ts0409 ,dbrand.asn( rnndop) 1 
'TS0409.DGRAND.ASt1(RAIJDOP)' 


onoio 

TITLE 

1 RANDQP(  L IONUM, FDESG)  OPEN  A RANDOM  FILE  FOR  UPDATE' 

00020 

RAN  HOP 

CSECT 

00030 

USING 

* / 1 2 

00040 

STM 

14, 12,12(13) 

00050 

LU 

12,15 

00060 

LA 

15 , OPS A 

00070 

ST 

15,8 ( , 13 ) 

00080 

ST 

13, 4 ( , 15 ) 

00090 

LR 

13,15 

00100 

* 

00110 

LM 

2, 3, 0(1) 

00120 

L 

2 , 0 ( , 2 ) 

00130 

cvn 

2,OPDUB 

00140 

MVC 

OPPACK, -X 1 4 0? 120  2 02  02  0 ' 

00150 

El) 

OPPACK,OPDUR+5 

0 0 1 G 0 

MVC 

0 pni)NAf’E+  2(4),  OPPACK+2 

00170 

LA 

4,OPOCR 

00180 

USING 

1 HADCR, 4 

0010  0 

MVC 

ncRnmjA!i,npnnNAi*E 

00200 

OPEN 

( 0 POOR, (UPDAT)) 

00210 

LA 

1 , OpDCR 

00220 

ST 

1 , 0 ( , 3 ) RFTIJRf?  FDESG  = OCR  ANDRESS 

on  ?.  30 

SR 

15,15 

00240 

L 

13,4(,13) 

00250 

l:i 

0,12,20(13) 

00260 

L 

14, 12 ( , 13 ) 

00270 

00280 

* 

HR 

14 

00200 

opnun 

NS 

n 

00300 

0 PSA 

ns 

18  A 

00310 

OPPACK 

ns 

CLC 

0032  0 

opnrniAf1 

sf.  nr 

CLCTROoro' 

0033  0 
00340 
00350 

opnro 

NCR 

LTORfi 

ntiFNo»i,nsoRr:«nA,M(ACRF»(Ric,ric),npTcn«p,nLKSi  zE*4rnc, 
RECFM-F 

00360 

00370 

READY 

ncnn 

end 

nsORr=nA,T’Fvn«r>A 
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list  ' ts040n.(!l>r;in<!.asm(  rnndoq) ' 
'TS0400 . DCRAIin.  ASIK  RAIinon) ' 


onnio 

TITLE 

■RArmnnt  lignum, fdesd)  open  a random  file  for  create 

r?  n o 2 o 

raupoq 

CSECT 

non3Q 

USING 

*,12 

00040 

STM 

14,12,12(13) 

00  05  0 

LR 

12,15 

nooGP 

LA 

15,  Of>SA 

00070 

ST 

15 , 2 ( , 13 ) 

00  03  0 

ST 

13,4(,15) 

00000 

00100 

* 

LR 

13,15 

00110 

LM 

2,3, 0(1) 

00120 

L 

2, 0 ( , 2 ) 

0013  0 

cvn 

2,2°nur> 

0014  0 

. |VC 

OOPACK,  =:: 1 402120202020' 

00 15  0 

r.n 

ORPACK,nnnilR+5 

001  GO 

live 

oonnuAME+2(4),pnnAri>2 

0017!) 

LA 

4, nonco 

noiOO 

USING 

imaocp>,4 

no  loo 

r.vc 

i)Conni:AM,oonniiA::c 

OO200 

OPEN 

(oonro, (output) ) 

00210 

LA 

i,onnrn 

00220 

ST 

1 , 0 ( , 3 ) RETURN  cPESr.  = nr.R  ADDRESS 

00230 

SR 

15,15 

00240 

L 

1 3 , 4 ( , 1 3 ) 

00250 

LM 

0,12,20(13) 

002  GO 

!. 

14, 1 2 ( , 1 3 ) 

nO  2 7 0 
0 02  30 

* 

\V\ 

14 

00200 

or.!)i  jn 

ns 

!) 

00300 

OPS  A 

ns  . 

1-V 

; 0310 

no PACK 

ns 

CLI 

00320 

nonoriA  me 

nr 

cl:'  ' :»!$  )<: rv* 1 

00330 

nnncn 

n rr, 

r.Licr,  i :,.c=40''c/,:i'p|n=i/c:or'.r.=  nr:/;nrr'F  = ('’L) , ifori-p 

00340 
00350 
r 0300 
00370 
^EADY 

* 

ltorg 

neon 

run 

;'„\cnF=("i.)  /:ecf:=f 
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1 1st  * ts0400.rfbrnnd.asn(randr<l) ' 
' TS 0400  . DB RAND . ASI1(  RANDRD)  ' 


onmo 

TITLE 

1 RANDRD (FDESG,  PAG ENO, BUFFER)  RANDOM  READ 

00020 

RANDRD 

CSECT 

00030 

USING 

*.12 

on  040 

STM 

14/12/ 12(13) 

00050 

LR 

12,15 

00060 

LA 

15/RDSA 

00070 

ST 

15,G(,13) 

00030 

ST 

13, 4 ( , 15 ) 

oooon 

LR 

13,15 

0010  0 

* 

00110 

LM 

2,  4,0(1) 

00120 

L 

2, 0 ( , 2 ) 2-DCR  APDR 

00130 

L 

1 , 0 ( , 5 ) 

00140 

HCTR 

1/0  CHANGE  PAGENO  TO  REL  SLOCK  NO 

00150 

ST 

1, RDBLKNO 

00160 

* 

LA 

3,  r>nn  lkno+i 

00170 

* 

00130 

READ 

RDOECD/O l/(2)/(4)/,o,/0/ RORLKMO+l 

00100 

CHECK 

RPDECB 

00200 

* 

00210 

SR 

15,15 

00220 

1 

13 , 4 ( , 13  ) 

1)0230 

u: 

0,12/20(13) 

1)0240 

L 

14 , 12 ( , 13  ) 

0 0 25  0 

r»n 

14 

002^0 

★ 

0 0 2 7 0 

00  5 A 

ns 

ISA 

00  20  0 

rddlkno 

ns 

F 

00  200 

r(!n 

'EASY 
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1 1st  ' ts0400 . dl> rand  .asn(  rant! rw) ' 
' TS0409  .DBRAND.ASfKRANDRW) ' 


OOOIO 

TITLE 

' RANDRW (FDESG,  PAfiENO,  BUFFER)  RANDOM  WRITE 

00020 

RANDRW 

CSECT 

00030 

USING 

*,12 

00040 

STM  . 

14,12,12(13) 

00050 

LR 

12,15 

00060 

LA 

15, RWSA 

00070 

ST 

15, S( ,13) 

00080 

ST 

13, 4 ( , 15 ) 

00090 

LR 

15,15 

00100 

★ 

omio 

LM 

2, 4, 0(1) 

00120 

L 

2, o{,7.)  2-ncB  addr 

00130 

L 

1,0(,3) 

CO  14  0 

BCTR 

1,0  CHANCE  PAGEMO  TO  REL  ni.OOK  NO 

00150 

ST 

1,  RWBLKflO 

00160 

LA 

3, RWRLKMO+l 

00170 

★ 

00180 

WR 1 TE 

ri'./f)ECB,0|  ,(2),(4),  'S'  ,0,  (3) 

00190 

CHECK 

R'/DECB 

00200 

* 

00210 

SR 

15,15 

00220 

L 

13, 4 (,13) 

00230 

l:  ; 

0,12, 20(13) 

00240 

L 

1 4 , 1 2 ( , 1 3 ) 

00250 

n r 

14 

C 0 2 6 0 

★ 

002  70 

RWSA 

ns 

ISA 

00280 

U'JBLKNn 

ns 

F 

00200 

e in 

REAnY 
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1 1st  ' ts0409 . dbrnnd . nsm( rnndwt ) 1 
' TS0409 . D BRAND . ASM(RAMDWT) ' 


00010 

TITLE 

' RANDWT( FDESG, PAGENO, RUFFER)  RANDOM  WRITE 

00020 

RANDWT 

CSECT 

00030 

USING 

*/ 12 

00040 

STM 

14,12,12(13) 

00050 

LR 

12,15 

000R0 

LA 

15,'TSA 

00070 

ST 

15,  G ( , 13 ) 

oooon 

ST 

13, 4 ( , 15) 

00090 

00100 

★ 

LR 

13,15 

00110 

LM 

2, 4, 0(1) 

0012  0 
00130 

* 

L 

2, 0 ( , 2 ) 2=HCB  ADDR 

00140 

WRITE 

l/TDECR,  SF,  ( 2),  (4),  'S1 

00150 

00100 

★ 

CHECK 

WTDECD 

0017  0 

SR 

15,15 

0010  0 

L 

13,4 ( , 13 ) 

oo  ion 

Li! 

0,12,20(13) 

00200 

L 

14, 12 (, 13) 

00210 

00220 

* 

BR 

14 

ft;  230 
00  2 4 0 
•READY 

WTSA 

nr. 

END 

l r A 
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APPENDIX  II 


LISTING  OF  TIMER  SUBROUTINES 
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APPENDIX  III 


DATA  SET  CHARACTERISTICS  AND  STORAGE  REQUIREMENTS 


This  Appendix  lists  the  URL/URA  data  sets  with  their  respective 
file  organization  and  record  formats  (in  OS/TSO  notation),  logical  and 
physical  record  length  (in  bytes)  and  track  requirements  as  they  were 
when  copied  from  disk  to  the  distribution  tape.  These  data  set  attri- 
butes may  be  required  for  installations  which  do  not  handle  IBM  standards 
labelled  tapes . 


For  object  distribution: 


DATA  SET 

DATA  SET 

RECORD 

RECORD 

BLOCK 

NO.  OF 

NAME 

ORGANIZATION 

FORMAT 

LENGTH 

SIZE 

TRACKS  (2314) 

TS0448 . CALLIB . LOAD 

PO 

U 

1024 

759 

TS0448. PSADDL.DATA 

PS 

FB 

80 

8000 

1 

TS0448. SECRET. DATA 

PS 

FB 

80 

8000 

2 

TS0448. HELPSHRT . DATA 

PS 

FB 

80 

8000 

3 

TS0448. HELPLONG. DATA 

PS 

FB 

80 

8000 

11 

TS0448. PSAERROR. DATA 

PA 

FB 

80 

800 

3 

TS0448.URA. CLIST 

PS 

FB 

80 

80 

2 

TS0448. CLI . CLIST 

PS 

F 

80 

80 

1 

TS0448.DDLA. CLIST 

PS 

VB 

255 

1680 

1 

TS0448.DBIN. CLIST 

PS 

VB 

255 

1680 

1 

TS0448. PSALINK. CLIST 

PS 

VB 

255 

1680 

1 

TS0448 . PSALINK1 . CLIST 

PS 

VB 

255 

1680 

1 

TS0448.NCLI. CLIST 

PS 

VB 

255 

1680 

1 

TS0448. LIBMTS . FORT 

PO 

FB 

80 

6400 

2 

TS0448.DBRAND. ASM 

PO 

FB 

80 

6400 

2 

TS0448 . DBLIB . LOAD 

PO 

U 

13030 

21 

TS0448 . FLIB . LOAD 

PO 

U 

80 

13030 

32 

TS0448 . SLIB . LOAD 

PO 

U 

1024 

5 

TS0448. CLI .OBJ 

PS 

FBS 

80 

400 

19 

TS0448.CLIEX.OBJ 

PS 

FBS 

80 

400 

6 

TS0448.CM.OBJ 

PS 

FBS 

80 

400 

2 

TS0448 . CNC . OBJ 

PS 

FBS 

80 

400 

2 

TS0448.CT.OBJ 

PS 

FBS 

80 

400 

2 

TS  044  8 . CONT . OBJ 

PS 

FBS 

80 

400 

2 

TS0448.DBS.OBJ 

PS 

FBS 

80 

400 

2 

TS0448. DCOM. OBJ 

PS 

FBS 

80 

400 

2 

TS0448.DEL.OBJ 

PS 

FBS 

80 

400 

2 

TS0448.DICT.OBJ 

PS 

FBS 

80 

400 

2 

TS0448.DP.OBJ 

PS 

FBS 

80 

400 

4 

TS0448.DPSL.OBJ 

PS 

FB 

80 

400 

12 

TS0448.EI.OBJ 

PS 

FBS 

80 

400 

2 
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DATA  SET 

DATA  SET 

RECORD 

RECORD 

BLOCK 

NO.  OF 

NAME 

ORGANIZATION 

FORMAT 

LENGTH 

SIZE 

TRACKS 

TS0448.FPS.OBJ 

PS 

FBS 

80 

400 

16 

TS0448. FREQ. OBJ 

PS 

FBS 

80 

400 

1 

TS0448. IDX. OBJ 

PS 

FBS 

80 

400 

1 

TS0448.KPER.OBJ 

PS 

FBS 

80 

400 

1 

TS0448.KPRT.OBJ 

PS 

FBS 

80 

400 

1 

TS0448.NGA. OBJ 

PS 

FB 

80 

400 

4 

TS0448.NGP.OBJ 

PS 

FB 

80 

400 

1 

TS0448.NLA.OBJ 

PS 

FB 

80 

400 

1 

TS0448.NLP. OBJ 

PS 

FB 

80 

400 

1 

TS0448.PAU. OBJ 

PS 

FB 

80 

400 

1 

TS0448. PCOM. OBJ 

PS 

FBS 

80 

400 

2 

TS0448.PIC.OBJ 

PS 

FBS 

80 

400 

9 

TS0448.PRIO.OBJ 

PS 

FB 

80 

400 

3 

TS0448. RCOM.OBJ 

PS 

FB 

80 

400 

2 

TS0448.REN.OBJ 

PS 

FB 

80 

400 

2 

TS0448. SUM. OBJ 

PS 

FBS 

80 

400 

1 

TS0448.  SYNTJ.  OBJ 

PS 

FB 

80 

400 

16 

TS0448.XREF.OBJ 

PS 

FB 

80 

400 

1 

TS0448.DBIN.OBJ 

PS 

FBS 

80 

400 

1 

TS0448.DDLA.OBJ 

PS 

FBS 

80 

400 

4 

TS0448. PSL.OBJ 

PS 

FB 

80 

400 

9 

TS0448.PSLBLK.OBJ 

PS 

FB 

80 

400 

1 

TS0448 . LIBBLK. OBJ 

PS 

FB 

80 

400 

1 

TS0448.DBBLK.OBJ 

PS 

FB 

80 

400 

1 

TS0448.EXA.DATA 

PS 

FB 

80 

800 

1 

TS0448.EXB.DATA 

PS 

FB 

80 

800 

1 

For  source  distribution: 


DATA  SET 

DATA  SET 

RECORD 

RECORD 

BLOCK 

NO.  OF 

NAME 

ORGANIZATION 

FORMAT 

LENGTH 

SIZE 

TRACKS 

TS0448. PSADDL.DATA 

PS 

FB 

80 

8000 

1 

TS0448. SECRET. DATA 

PS 

FB 

80 

8000 

2 

TS0448 . 1IELPSHRT . DATA 

PS 

FB 

80 

8000 

3 

TS0448.  HELP LON  G . DATA 

PS 

FB 

80 

8000 

11 

TS0448.PSAERROR. DATA 

PS 

FB 

80 

800 

3 

TS0448 . DDLA. DATA 

PS 

FB 

80 

8000 

6 

TS0448.DBIN.DATA 

PS 

FB 

80 

8000 

1 

TS0448. INCL.DATA 

PS 

FB 

80 

8000 

2 

TS0448.DBCOM.DATA 

PS 

FB 

80 

8000 

1 

TS044  8. PSACOM. DATA 

PS 

FB 

80 

8000 

19 
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DATA  SET 

DATA  SET 

RECORD 

RECORD 

BLOCK 

NO.  OF 

NAME 

ORGANIZATION 

FORMAT 

LENGTH 

SIZE 

TRACKS 

TS0448.EXA.DATA 

PS 

FB 

80 

800 

1 

TS0448.EXB.DATA 

PS 

FB 

80 

800 

1 

TS0448. SLIB. ASM 

PO 

FB 

80 

6400 

4 

TS0448. DBASM. ASM 

PO 

FB 

80 

6400 

1 

TS0448. DBRAND. ASM 

PO 

FB 

80 

6400 

2 

TS0448. LIBMTS . FORT 

PO 

FB 

80 

6400 

2 

TS0448 . DBUSER. DATA 

PS 

FB 

80 

8000 

41 

TS0448.DBLOW.DATA 

PS 

FB 

80 

8000 

15 

TS0448 . DBTAB. DATA 

PS 

FB 

80 

8000 

4 

TS0448. FLIB.DATA 

PS 

FB 

80 

8000 

34 

TS0448 . PSL . DATA 

PS 

FB 

80 

8000 

20 

TS0448. PSLBLK. DATA 

PS 

FB 

80 

8000 

3 

TS0448 . DBBLK . DATA 

PS 

FB 

80 

8000 

1 

TS0448.LIBBLK.DATA 

PS 

FB 

80 

8000 

2 

TS 0448. CLI. DATA 

PS 

FB 

80 

8000 

42 

TS0448. CLIEX. DATA 

PS 

FB 

80 

8000 

13 

TS0448.CM.DATA 

PS 

FB 

80 

8000 

4 

TS0448 . CNC . DATA 

PS 

FB 

80 

8000 

4 

TS0448. CONT. DATA 

PS 

FB 

80 

8000 

2 

TS0448.CT.DATA 

PS 

FB 

80 

8000 

2 

TS0448. DBS. DATA 

PS 

FB 

80 

8000 

2 

TS0448. DCOM. DATA 

PS 

FB 

80 

8000 

1 

TS0448. DEC. DATA 

PS 

FB 

80 

8000 

2 

TS0448.DICT.DATA 

PS 

FB 

80 

8000 

2 

TS0448.DP.DATA 

PS 

FB 

80 

8000 

8 

TS0448.DPSL.DATA 

PS 

FB 

80 

8000 

30 

TS0448 . El . DATA 

PS 

FB 

80 

8000 

4 

TS0448.FPS.DATA 

PS 

FB 

80 

8000 

21 

TS0448. FREQ. DATA 

PS 

FB 

80 

8000 

1 

TS0448. IDX.DATA 

PS 

FB 

80 

8000 

1 

TS0448.KPER.DATA 

PS 

FB 

80 

8000 

1 

TS0448.KPRT. DATA 

PS 

FB 

80 

8000 

1 

TS0448.NGA.DATA 

PS 

FB 

80 

8000 

6 

TS0448.NGP.DATA 

PS 

FB 

80 

8000 

1 

TS0448. NLA. DATA 

PS 

FB 

80 

8000 

1 

TS0448.NLP.DATA 

PS 

FB 

80 

8000 

1 

TS0448. PAV.DATA 

PS 

FB 

80 

8000 

1 

TS0448. PCOM. DATA 

PS 

FB 

80 

8000 

2 

TS0448. PIC. DATA 

PS 

FB 

80 

8000 

15 

TS0448 . PRIO . DATA 

PS 

FB 

80 

8000 

3 

TS0448. RCOM.DATA 

PS 

FB 

80 

8000 

3 

TS0448. REN. DATA 

PS 

FB 

80 

8000 

1 

TS0448. STR.DATA 

PS 

FB 

80 

8000 

3 

TS0448. SUM. DATA 

PS 

FB 

80 

8000 

1 
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DATA  SET 

DATA  SET 

RECORD 

RECORD 

BLOCK 

NO.  OF 

NAME 

ORGANIZATION 

FORMAT 

LENGTH 

SIZE 

TRACKS 

TS0448. SYNU.DATA 

PS 

FB 

80 

8000 

34 

TS0448.XREF.DATA 

PS 

FB 

80 

8000 

1 

TS  04  4 8 . PS ACOM . DATABASE 

PS 

F 

4096 

17 

TS0448. FORTIHC . CLIST 

PS 

VB 

255 

1680 

1 

TS0448. LIBBLK. OBJ 

PS 

FB 

80 

400 

1 

TS0448. DBBLK. OBJ 

PS 

FB 

80 

400 

1 

TS0448.PSLBLK.OBJ 

PS 

FB 

80 

400 

1 

TS0448.PSL.OBJ 

PS 

FB 

80 

400 

9 

TS0448.DBLIB.LOAD 

PO 

U 

13030 

21 

TS0448. PUB. LOAD 

PO 

U 

80 

13030 

32 

TS044  8 . SUB . LOAD 

PO 

U 

1024 

5 
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